home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / varitest.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.1 KB  |  41 lines
  1. 1  REM  VARITEST.SHA
  2. 2  REM PROGRAMM ZUM TEST DER UEBERTRAGUNG VON VARIABLEN
  3. 3  REM  VON CASIO AUF ATARI UND UMGEKEHRT
  4. 4  REM  YELLOW COMPUTING  25-8-88
  5. 5  BB$="TRANSFILE-CASIO"
  6. 10  BEEP 1:PRINT "VARIABLEN-TEST"
  7. 15  DIM AA$(15): REM VARIABLEN-SPEZIFIKATION
  8. 20  FOR I=1 TO 15
  9. 30  AA$(I)=LEFT$(BB$,I)
  10. 40  NEXT I
  11. 52  OPEN "COM0:" FOR OUTPUT AS #1 :REM SERIELL AUSGEBEN
  12. 55  PRINT "VARIABLEN AUF ATARI SENDEN      ";
  13. 56  PRINT "EXE DRUECKEN WENN FERTIG"
  14. 60  FOR I=1 TO 15
  15. 65  PRINT#1,AA$(I)
  16. 70  NEXT I
  17. 75  CLOSE : REM AUSGABEKANAL SCHLIESSEN
  18. 80  PRINT "F E R T I G": BEEP 0
  19. 95  END
  20. 96  REM TEIL 2 VON VARITEST.SHA
  21. 97  REM VARIABLEN EMPFANGEN UND ANZEIGEN
  22. 100  PRINT "VARIABLEN EMPFANGEN + ANZEIGEN  ";
  23. 101  PRINT "WEITER MIT EXE"
  24. 105  GOSUB 200 :REM VARIABLEN LOESCHEN
  25. 108  GOSUB 300 :REM VARIABLEN EMPFANGEN
  26. 110  FOR I=1 TO 15:PRINT AA$(I);" ";:BEEP 1
  27. 120  NEXT I
  28. 130  PRINT "F E R T I G":BEEP 0
  29. 140  END
  30. 200  REM VARIABLENFELD LOESCHEN
  31. 210  FOR I=1 TO 15
  32. 215  AA$(I)="X":NEXT I
  33. 230  RETURN
  34. 299  REM VARIABLEN EMPFANGEN
  35. 300  OPEN "COM0:" FOR INPUT AS #1
  36. 310  FOR I=1 TO 15
  37. 320  INPUT#1,AA$(I)
  38. 330  NEXT I
  39. 340  CLOSE: RETURN
  40.  
  41.